vln <- c("Number of donors", "Number of democracy donors",
         "Number of economic donors")
vlns <- c("No. of donors", "No. of dem. donors", "No. of econ. donors")
vln10 <- paste0(vln, "$^{\\dagger}$")
vlns10 <- paste0(vlns, "$^{\\dagger}$")

vlf <- c("Aid fragmentation", "Democracy aid fragmentation",
         "Economic aid fragmentation")
vlfs <- c("Aid frag.", "Dem. aid frag.", "Econ. aid frag.")

vla <- c("Aid (m USD; log)", "Democracy aid (m USD; log)",
         "Economic aid (m USD; log)")
vlas <- c("Aid (m USD; log)", "Dem. aid (m USD; log)",
          "Econ. aid (m USD; log)")
vla10 <- paste0(vla, "$^{\\dagger}$")
vlas10 <- paste0(vlas, "$^{\\dagger}$")

vlc <- c("Aid (USD per capita; log)",
         "Democracy aid (USD per capita; log)",
         "Economic aid (USD per capita; log)")
vlcs <- c("Aid (USD p.c.; log)",
          "Dem. aid (USD p.c.; log)",
          "Econ. aid (USD p.c.; log)")
vlc10 <- paste0(vlc, "$^{\\dagger}$")
vlcs10 <- paste0(vlcs, "$^{\\dagger}$")

vlctrl <- c("Population (log) x 10",
            "Income per capita (log) x 10",
            "Civil conflict (>25 battle deaths)")
vlctrls <- c("Pop. (log) x 10", "GDP p.c. (log) x 10", "Civil conflict")

vlzdS <- c("$\\sum$Legislative fractionalization (donor) * inverted distance",
          "$\\sum$Women in parliament (donor) * inverted distance",
          "$\\sum$Legislative fractionalization (donor) * inverted distance")
vlzdsS <- c("$\\sum$Legisl. frag. * inv. dist.",
           "$\\sum$Women in parl. * inv. dist.",
           "$\\sum$Legisl. frag. * inv. dist.")

vlzpS <- c(paste0("$\\sum$Predicted number of donors (legislative ",
           "fractionalization * propensity to receive aid)"),
          paste0("$\\sum$Predicted number of democracy donors (women in ",
          "parliament * propensity to receive democracy aid)"),
          paste0("$\\sum$Predicted number of economic donors ",
                 "(legislative fractionalization * propensity to ",
                 "receive economic aid)"))
vlzpsS <- c("$\\sum$Pr(aid > 0 | leg. frac. * Pr(aid))",
           "$\\sum$Pr(dem. aid > 0 | women in parl. * Pr(dem. aid))",
           "$\\sum$Pr(econ. aid. > 0 | leg. frac. * Pr(econ. aid))")

vlzd <- c("Z (Legislative fractionalization (donor) * inverted distance)",
          "Z (Women in parliament (donor) * inverted distance)",
          "Legislative fractionalization (donor) * inverted distance)")
vlzds <- c("Z (Legisl. frag. * inv. dist.)",
           "Z (WiP * inv. dist.)",
           "Z (Legisl. frag. * inv. dist.)")

vlzp <- c("Z (legislative fractionalization * propensity to receive aid)",
          "Z (women in parliament * propensity to receive democracy aid)",
"Z (legislative fractionalization * propensity to receive economic aid)")
vlzps <- c("Z (leg. frac. * Pr(aid))",
           "Z (WiP * Pr(dem. aid))",
           "Z (leg. frac. * Pr(econ. aid))")

vlne <- paste0(vln, " (estimated)")
vlnes <- paste0(vlns, " (est.)")
vlae <- paste0(vla, " (estimated)")
vlaes <- paste0(vlas, " (est.)")

vlis <- paste(vlns, " * ", vlas)
vlies <- paste(vlns, " * ", vlas, " (est.)")

vlset <- c(#paste0(vln[2], " (x 10)"), paste0(vln[3], " (x 10)"),
    vln[2], vln[3],
    vla[2],  vla[3], "pop", "gdp", "war", paste0(vln[2], " (estimated)"))
vlsets <- c(#paste0(vlns[2], " (x 10)"), paste0(vlns[3], " (x 10)"),
    vlns[2], vlns[3],
           vlas[2],  vlas[3], "pop", "gdp", "war", paste0(vlns[2], " (est.)"))

sectlab <- c("Civil society\n(general)",
             "Community\nparticipation",
             "Grassroot\norganizations",
             "Other partici-\npatory planning",
             "Elections",
             "Human rights",
             "Free flow of\ninformation",
             "Women's\norganizations")

sectlabtab <-
    cbind(sectlab,
          c("civsoc",
            "compart",
            "grass",
            "otherpart",
            "elections",
            "hr",
            "freeflow",
            "womorg")
          )
